home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / cucd / programming / stormc-demo / rexx / catcomp.srx < prev    next >
Text File  |  1996-11-10  |  931b  |  35 lines
  1. /* 
  2.     catcomp.srx
  3.     
  4.     Compile a catalog description file to an C header file.
  5.         
  6.     © 1996 HAAGE & PARTNER GmbH
  7.     
  8.     $VER catcomp.srx 1.0 (4.11.96)
  9.     
  10.     Warning: The function "GetString()" which will be generated by catcomp and
  11.     used by setting "#define CATCOMP_CODE" ever uses the global symbol
  12.     _LocaleBase for calling the function "GetCatalogStr()" from locale.library
  13.     and not the expression li->li_LocaleBase.
  14.     
  15. */
  16.  
  17. /* Don't forget the point '.' at the end      \/        */
  18. PARSE ARG '"' filename '"' '"' projectname '"' .
  19.  
  20. /* Replace suffix ".cd" by ".h" */
  21. objectname = LEFT(filename,LASTPOS('.cd',filename)-1)||".h"
  22.  
  23. SAY ""
  24. SAY "Catcomp Script ©1996 HAAGE & PARTNER GmbH"
  25. SAY "Compile "||filename||" to header "||objectname||"."
  26.  
  27. /* set object file of catalog file */
  28. OBJECTS filename objectname
  29.  
  30. /* compile */
  31. ADDRESS COMMAND "catcomp "||filename||" CFILE "||objectname
  32.  
  33. /* add object file to project */
  34. ADDFILE objectname QUIET
  35.